100 REM--------------------------------
110 REM KLANGEFFEKTE MIT
120 REM DYNAMISCHER FREQUENZSTEUERUNG
130 REM--------------------------------
140 S=54272
150 READ A,D,SU,R,C,P,F,G,N,M
160 POKE S+5 ,16*A +D
170 POKE S+6 ,16*SU+R
180 POKE S+2 ,P AND 255
190 POKE S+3 ,P/256
200 POKE S+23,0     :REM FR
210 POKE S+24,15    :REM ML
220 GET A$:IF A$="" THEN 220
230 FOR I=1 TO M
240 : F1=F
250 : POKE S+4,C OR 1
260 : FOR J=1 TO N
270 :   POKE S,F1 AND 255
280 :   POKE S+1,F1/256
290 :   F1=F1*G
300 : NEXT J
310 : POKE S+4,C
320 NEXT I
330 GOTO 220
400 REM--------------------------------
410 REM PARAMETER
420 DATA 0 ,10, 0,10:REM A D SU R
430 DATA 16         :REM CONTROL-BYTE C
440 DATA 2048       :REM PULSWEITE P
450 DATA 16000      :REM FREQUENZ F
460 DATA 1.33       :REM FAKTOR G
470 DATA 2          :REM ANZAHL N
480 DATA 25         :REM ANZAHL M